-module(gperf).
-export([ni/1,start/1,log/2]).
-define(LOG(T), gperf:log(process_info(self()),T)).

ni(Args) -> self() ! {args, Args}, gperfGtk:init().

start(Args) -> gperfGtk:start() ! {args,Args}.

log(ProcInfo,Term) when not is_list(Term) -> log(ProcInfo,[Term]);
log(ProcInfo,List) ->
    error_logger:info_report([{in,CF}||{current_function,CF}<-ProcInfo]++List).
